home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / gnu / button12.lha / button9301.ps < prev    next >
Text File  |  1993-08-05  |  5KB  |  148 lines
  1. %
  2. % button9301.ps - A GNU Button Program
  3. %
  4. % Copyright 1993 Free Software Foundation
  5. %
  6. % This program is free software; you can redistribute it and/or modify
  7. % it under the terms of the GNU General Public License as published by
  8. % the Free Software Foundation; either version 2, or (at your option)
  9. % any later version.
  10. %
  11. % This program is distributed in the hope that it will be useful,
  12. % but WITHOUT ANY WARRANTY; without even the implied warranty of
  13. % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14. % GNU General Public License for more details.
  15. %
  16. % You should have received a copy of the GNU General Public License
  17. % along with this program; if not, write to the Free Software
  18. % Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  19. %
  20. % Hard copies of this button were first distributed at the January
  21. % 1993 San Diego Usenix.  They had black lettering on a white
  22. % background on a standard 2 1/4" safety pin button.  They were
  23. % designed by Leonard H. Tower Jr. who is also the author of this GNU
  24. % Button Program.
  25. %
  26. % Report bugs or improvements to: tower@prep.ai.mit.edu
  27. %
  28. % Hard copies of this button are probably still available.  To get a
  29. % button, one must have either donated source code or documentation to
  30. % the GNU Project or make a donation of at least $ 2.00 for each button.
  31. %
  32. % If you wish a hard copy of a gnu button send:
  33. %     - a self-addressed, stamped envelope; and
  34. %     - either:
  35. %         - a reminder of your source or documentation contribution; or
  36. %         - a donation payable to the "Free Software Foundation"; and
  37. %     - specify how many each of these different versions you wish:
  38. %         Feb 88 (white GNU)        Jun 88 (yellow GNU)
  39. %        Jan 89 (blue GNUer)        Jun 89 (green GNUist)
  40. %        Jan 90 (yellow thanx GNU)    Jun 90 (white text on GNU) @@??
  41. %        Jan 91 (yellow text on GNU)@@??    Jun 91 (white cubist GNU)  @@??
  42. %        Jan 92 (yellow cubist GNU) @@??    Jun 92 (yellow GnURU)
  43. %        Jan 93 (white gnu & improved)   
  44. % to:    L. Tower Jr.
  45. %     36 Porter Street,
  46. %    Somerville, MA  02143, USA
  47. %
  48. % This program is available for anonymous ftp
  49. % prep.ai.mit.edu:/u2/emacs/button.N.MM.shar.  It is probably available
  50. % in other source archives.
  51.  
  52. % This version has this "phrase" centered inside the fine print circle:
  53. %   
  54. %         ggg g  n nnn   u    u
  55. %        g   gg  nn   n  u    u
  56. %        g    g  n    n  u    u
  57. %        g    g  n    n  u    u
  58. %        g   gg  n    n  u   uu
  59. %         ggg g  n    n   uuu u   &
  60. %             g
  61. %         gggg      i m p r o v e d
  62. %
  63. % This was inspired by the phrase on the front of the first CD-ROM.
  64. % The phrase and front cover design was created by 
  65. % mycroft@gnu.ai.mit.edu (Charles Hannum). 
  66.  
  67. erasepage
  68.  
  69. % debugging help
  70. .so ehandler.ps
  71.  
  72. % uses {in,out}sidecircletext routines from Adobe Cookbook.
  73. .so circtext.ps
  74.  
  75. % center button on 8 1/2" x 11" page
  76. 306 396 translate
  77.  
  78. % This is a kludge to give better edge resolution.
  79. % Note that postscript's scale command doesn't cut it.
  80. % It scales after the edges are set.
  81. % biggg is set to 2,3,4, 3.7 or 3.9 to make a master that is that much larger.
  82. % The master is reduced that much by the button manufacturer.
  83. % If only 1200 dpi postscript printers were more common ...
  84. /biggg 1 def
  85.  
  86. % useful for centering button design
  87. /circleguide {
  88.   gsave
  89.   /radius 82 biggg mul def
  90.   .5 setlinewidth
  91.   newpath
  92.     0 0 radius 0 360 arc
  93.   stroke
  94.   grestore
  95. } def
  96.  
  97. %circleguide
  98.  
  99. gsave
  100.   /gnutext (gnu) def
  101.   /gtext (g) def
  102.   /amptext (&) def
  103.   /improvedtext (improved) def
  104.   % The "&" and "improved" are 1/*fudge size of /gnutext
  105.   /ampfudge 4 def
  106.   /improvedfudge 4 def
  107.   /gnuptsz 60 biggg mul def
  108.   /improvedptsz gnuptsz improvedfudge div def
  109.   /Times-Bold findfont gnuptsz scalefont setfont
  110.   %center
  111.   /ampwidth amptext stringwidth pop ampfudge div def
  112.   /gnuwidth gnutext stringwidth pop def
  113.   /gwidth gtext stringwidth pop def
  114.   /shiftleft ampwidth 4 div def
  115.   /firstlinewidth gnuwidth ampwidth add def
  116.   /shiftdown gnuptsz 10 div neg def
  117.   firstlinewidth 2 div neg shiftleft add
  118.             shiftdown moveto
  119.   gnutext show
  120.   /Times-Bold findfont gnuptsz ampfudge div scalefont setfont
  121.   amptext show
  122.   /Times-Bold findfont improvedptsz scalefont setfont
  123.   /improvedwidth improvedtext stringwidth pop def
  124.   improvedwidth 2 div neg gwidth 1.2 div add
  125.     improvedptsz neg shiftdown add moveto
  126.   improvedtext show
  127. grestore
  128.  
  129. gsave
  130.   /GNUptsz 14 biggg mul def
  131.   /Times-Bold findfont GNUptsz scalefont setfont
  132.   (GNU's Not Unix)
  133.     GNUptsz 270 63 biggg mul insidecircletext
  134. grestore
  135.  
  136. /tinyptsz 5.75 biggg mul def
  137. /tinyrad 73 biggg mul def
  138.  
  139. /Helvetica-Narrow-Bold findfont tinyptsz scalefont setfont
  140.  
  141. (Copyright 1993 Free Software Foundation, Inc.)
  142.   tinyptsz 270 tinyrad outsidecircletext
  143.  
  144. (Anonymous ftp prep.ai.mit.edu:/pub/gnu/button.N.shar, this button's postscript program, which is freely redistributable under the GNU General Public License.)
  145.   tinyptsz  90 tinyrad outsidecircletext
  146.  
  147. showpage
  148.